(set #installtext (cat "Welcome to the BancaBase UPGRADE script.\n\nBancaBase3 V 1.3a (C) 1997/98 by Stefano Dardari\nAll rights reserved\n\n040 Enhanced UPDATE script V 1.0\n"))
(set #BB3dest-prompt "Please select the directory where BancaBase V 1.3a program executable (68000) is installed.\n(See help for more details)")
(set #BB3dest-help (cat "You must select the complete path where is currently installed version 1.3a REGISTERED of BancaBase program.\n\nINPORTANT: this upgrade can be applied on the 1.3a 68000 REGISTERED version only, correcly installed on Hard Disk."))
(set #BB3end (cat "Update complete. Please look the readme file before start."))
(set #msgpchfailed "WARNING !!!\n\nThis Patch was not applied succesfully because one error occurred.\n\nYou may be sure to apply this patch on the 1.3a (68000) REGISTERED version only of BancaBase, with any other relase this patch can't be applied.\nIf you have an 1.3a REGISTERED version of BancaBase and this patch don't work, then contact the author.")
(welcome #installtext)
(procedure set_dir
(set #bb3-dest
(askdir
(prompt #BB3dest-prompt)
(help #BB3dest-help)
(default #bb3-dest)
(newpath)
)
)
)
(set_dir)
(set #dest-path #bb3-dest)
(set @default-dest #dest-path)
(if (= 0 (exists #dest-path (noreq)))
(
(set #file-exist (cat "Sorry but the directory " #dest-path " does not exist.\n\nPlease, select the directory containing version 1.3a of BancaBase.\n"))
(message #file-exist)
(set_dir)
(set #dest-path #bb3-dest)
(set @default-dest #dest-path)
)
)
(complete 10)
(set #dst-path #dest-path)
(set #dst (tackon #dest-path #prg))
(if (exists #dst)
(
(set size (getsize #dst))
(if (= size #BB3size)
(message ("\n\nFound %s (%ld bytes)\n\nThis patch is applicable." #dst size))
)
)
)
(if (not(= size #BB3size))
(abort #msgpchfailed)
)
;(working #omp (cat "\n\nScompatto il file di patch ...\n" #dest-path))
;(run ("lha -x x "#bbprogname" "#dest-path))
(complete 50)
(working #omp "\n\n\nNow executing program update ...\nplease wait ...")
"You've just powered your version of BancaBase with a new one optimized for 68040 processors, this mean that operations will be faster and better!!!\n"
"I hope that you'll enjoy BancaBase!\n"
"Don't hesitate to send me comments, bugreports and suggestions.\n\n"